1 REM *********************************
2 REM *                               *
3 REM *  PGM TITLE : READER'S SURVEY  *
4 REM *  PGM AUTHOR: DAVE HAMMOND     *
5 REM *                               *
6 REM *  (C)1986 SOFTDISK PUBLISHING  *
7 REM *    (C)1986 UPTIME MAGAZINE    *
8 REM *                               *
9 REM *********************************
10 :
15 IF X=0 THEN X=1: LOAD "0:LPTR RTN",8,1
16 :
20 PRINT CHR$(8)CHR$(14)
30 UPTIME=(8*4096)+4: DE=186
40 POKE53280,0: POKE53281,0
95 :
100 GOSUB 1000: REM *** SCREEN TEMPLATE ***
110 GOSUB 1500: REM *** SCREEN #1 ***
115 :
120 GET K$: IF K$="" THEN 120
130 IF K$=CHR$(140) THEN 550
140 IF K$<>CHR$(13) THEN 120
195 :
200 GOSUB 1600: REM *** SCREEN #2 ***
205 :
210 GET K$: IF K$="" THEN 210
220 IF K$=CHR$(140) THEN 550
230 IF K$<>CHR$(13) THEN 210
295 :
300 GOSUB 1700: REM *** SCREEN #3 ***
305 :
310 GET K$: IF K$="" THEN 310
320 IF K$=CHR$(140) THEN 550
330 IF K$<>CHR$(13) THEN 310
395 :
400 GOSUB 1800: REM *** SCREEN #4 ***
405 :
410 ML=23: GOSUB 5000: REM *** GET KBD INPUT ***
415 :
420 N$=T$: IF T$="" THEN N$="AN ANONYMOUS SOURCE"
425 :
430 GOSUB 1900: REM *** SCREEN #4 CON'T ***
435 :
440 GET K$: IF K$="" THEN 440
450 IF K$=CHR$(140) THEN 550
460 IF K$<>CHR$(13) THEN 440
465 :
500 ER=0: GOSUB 2000: REM *** OUTPUT TO PRINTER ***
505 IF ER=1 THEN GOTO 600
506 :
510 GOSUB 3000: REM *** SCREEN #5 ***
515 :
520 GET K$: IF K$="" THEN 520
530 IF K$=CHR$(140) THEN 550
540 IF K$<>CHR$(13) THEN 520
545 :
550 POKE DE,8: SYS UPTIME
595 :
596 REM ***************
597 REM  PRINTER ERROR
598 REM ***************
599 :
600 GOSUB 1400: REM *** CLEAR TEXT AREA ***
605 :
610 PRINTSPC(6)" [150] [212]HERE IS A PRINTER ERROR  [155]"
620 PRINTSPC(6)"[210]ECHECK ALL OF YOUR PRINTER"
630 PRINTSPC(5)"CONNECTIONS AND THE PRINTER'S"
640 PRINTSPC(6)"PAPER SUPPLY AND TRY AGAIN."
645 :
650 GET K$: IF K$="" THEN 650
660 IF K$=CHR$(140) THEN 550
670 IF K$<>CHR$(13) THEN 650
675 :
680 GOSUB 1400: REM *** CLEAR TEXT AREA ***
685 :
690 PRINTSPC(16)"[208]RINTING"
700 PRINTSPC(12)"[210]EADER'S  [211]URVEY"
710 GOTO 500: REM *** RETRY PRINTER ***
990 END
995 :
996 REM *****************
997 REM  SCREEN TEMPLATE
998 REM *****************
999 :
1000 PRINT"[147]";
1010 TL$="[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
1020 BL$="[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][155]"
1030 M1$="[221]": M2$="                                     [146][221]"
1040 M3$="[171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179]"
1050 C$="[158]": R$="": PRINTTL$
1060 FOR X=1TO23
1070 PRINTM1$;C$;R$;M2$
1080 IF X=5 THEN X=6: C$="": R$="[146]": PRINTM3$
1090 IF X=18 THEN X=19: C$="": R$="": PRINTM3$
1100 NEXT
1200 PRINTBL$
1210 PRINTSPC(10)" [213]P[212]IME [158] [205]AGAZINE'S"
1220 PRINTSPC(12)"[210]EADER'S [211]URVEY"
1230 FOR X=1TO16: PRINT: NEXT
1240 PRINTSPC(9)"[208]RESS <[195][210]> TO [195]ONTINUE"
1250 PRINTSPC(4)"[208]RESS [198]8 TO [197]XIT [194]ACK TO [213]P[212]IME[155]"
1290 RETURN
1395 :
1396 REM *****************
1397 REM  CLEAR TEXT AREA
1398 REM *****************
1399 REM :
1400 PRINT"";
1410 FOR X=1TO12
1420 PRINT"[221]                                     [221]"
1430 NEXT
1440 PRINT"[155]";
1450 RETURN
1495 :
1496 REM ***********
1497 REM  SCREEN #1
1498 REM ***********
1499 :
1500 GOSUB 1400: REM *** CLEAR TEXT AREA ***
1505 :
1510 PRINTSPC(8)"[213]P[212]IME THE [196]ISK [205]ONTHLY[155]"
1520 PRINTSPC(2)"IS THE [159]PREMIERE[155] MAGAZINE ON A DISK"
1530 PRINTSPC(7)"FOR THE [195]OMMODORE 64/128"
1540 PRINTSPC(5)"[215]E ARE CONSTANTLY WORKING TO"
1550 PRINTSPC(8)"IMPROVE OUR PUBLICATION"
1560 PRINTSPC(11)"AND [217][207][213][155][160]CAN HELP!"
1590 RETURN
1595 :
1596 REM ***********
1597 REM  SCREEN #2
1598 REM ***********
1599 :
1600 GOSUB 1400: REM *** CLEAR TEXT AREA ***
1605 :
1610 PRINTSPC(6)"[217]OU CAN HELP US STAY #1[155] BY"
1620 PRINTSPC(9)"PROVIDING YOUR INPUT:
1630 [153][166]6)"SYS(null)RAISELIST, PRINTLENRITICISMLIST, OPENLENOMMENTSLIST"
1640 [153][166]4)"ATNNYTHING THAT YOU FEEL WILL HELP"
1650 [153][166]7)"US MEET YOUR EXPECTATIONS"
1660 [153][166]14)"WITH (null)P(null)IMELIST"
1690 [142]
1695 :
1696 [143] ***********
1697 [143]  SCREEN #3
1698 [143] ***********
1699 :
1700 [141] 1400: [143] *** CLEAR TEXT AREA ***
1705 :
1710 [153][166]3)"PEEKY FOLLOWING THE NEXT FEW PROMPTS"
1720 [153][166]5)"YOUR PRINTER WILL PRINT OUT A"
1730 [153][166]5)"READER'S SURVEY FORM FOR YOU."
1740 [153][166]4)"(null)LEASE TAKE THE TIME TO FILL OUT"
1750 [153][166]3)"THE SURVEY AND RETURN IT USING THE"
1760 [153][166]4)"ENCLOSED BUSINESS REPLY ENVELOPE."
1770 [153][166]4)"(null)E WILL USE THE RESULTS OF THIS"
1780 [153][166]5)"SURVEY TO DETERMINE WHAT IT IS"
1790 [153][166]3)"YOU'VE COME TO EXPECT FROM (null)P(null)IMELIST": [142]
1795 :
1796 [143] ***********
1797 [143]  SCREEN #4
1798 [143] ***********
1799 :
1800 [141] 1400: [143] *** CLEAR TEXT AREA ***
1805 :
1810 [153][166]3)"RIGHT$F YOU'D LIKE TO INCLUDE YOUR NAME"
1820 [153][166]10)"ENTER IT NOW, PLEASE."
1830 [153][166]4)"(ATN <LEN(null)> WILL MAKE IT ANONYMOUS)"
1840 [153][166]4)"(null)AME:TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB("
1850 [153][166]8)"ONON*CMD";
1860 [142]
1895 :
1896 [143] *****************
1897 [143]  SCREEN #4 CON'T
1898 [143] *****************
1899 :
1900 [141] 5200: [143] *** CK FOR DSYWHL ***
1905 [153][166]11)"(null)EADY YOUR PRINTER"
1910 [153][166]9)"(null)RESS SYS<LEN(null)>LIST WHEN READY"
1920 [142]
1995 :
1996 [143] *******************
1997 [143]  OUTPUT TO PRINTER
1998 [143] *******************
1999 :
2000 [151]780,4: [151]782,7: [158] 828: [143] *** ML ROUTINE TO OPEN PRINTER CHN ***
2010 [139] [194](783)[175] 1 [167] ER[178]1: [137] 2490
2015 :
2020 [152]4,[199](10)
2025 [152]4,""[166]12)"(null)EADER'S (null)URVEY FOR THE LENOMMODORE 64/128    (null)OL. 1 (null)O. 2"
2030 [152]4,[199](10)
2040 [152]4,"     (null)HIS SURVEY IS FROM ";N$;"."
2050 [152]4,[199](0)
2055 L$[178]"TOTOTOTOTO": [139] DW[178]1 [167] L$[178]"......."
2060 [152]4,"     1. (null)Y AGE IS ";L$;
2070 [152]4," AND RIGHT$ AM A [ ] GUY  [ ] GAL."
2075 [152]4,[199](0)
2080 [152]4,"     2. RIGHT$F RIGHT$ HAD TO DEFINE THE WORDS '(null)(null)RIGHT$(null)RIGHT$(null)(null) (null)(null)(null)CHR$(null)ATN(null),' ";
2090 [152]4,"RIGHT$ WOULD SAY: "
2100 L$[178]"TOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTO"
2105 [139] DW[178]1 [167] L$[178]"................................."
2110 [152]4,[199](10)[166]8)L$;L$
2120 [152]4,[199](10)[166]8)L$;L$
2125 [152]4,[199](0)
2130 [152]4,"     3. RIGHT$ WOULD DISTRIBUTE THE 8 PROGRAMS ON THE DISK LIKE THIS:"
2140 [152]4,[199](0)
2145 [152]4,"        [   ] CHR$AMES  [   ] LEFT$OME (null)RODUCTIVITY  [   ] (null)TILITIES"
2155 [152]4,[199](0)
2165 [152]4,"     ***********************************";
2167 [152]4,"***************************************"
2170 BX$[178]"[   ]   TOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTO"
2172 [139] DW[178]1 [167] BX$[178]"[   ]   ....................................."
2175 [152]4,[199](0)
2180 [152]4,"     (null)LEASE RATE THE FOLLOWING PROGRAMS AND CATEGORIES ON A"
2190 [152]4,"     SCALE BETWEEN 1 AND 10 WITH 10 BEING THE HIGHEST."
2195 [152]4,[199](10)
2200 [152]4,"     (null)URDER LENRUISE    ";BX$
2205 [152]4,[199](0)
2206 [152]4,"     (null)RIVIA (null)LUS      ";BX$
2207 [152]4,[199](0)
2210 [152]4,"     ASCISHY            ";BX$
2215 [152]4,[199](0)
2220 [152]4,"     LENONCENTRATION    ";BX$
2225 [152]4,[199](0)
2230 [152]4,"     LEFT$OME RIGHT$NV (null)ANAGER ";BX$
2235 [152]4,[199](0)
2240 [152]4,"     RIGHT$NDEX (null)RITER     ";BX$
2245 [152]4,[199](0)
2246 [152]4,"     CHR$REAT VALSCAPES    ";BX$
2247 [152]4,[199](0)
2250 [152]4,"     (null)CRATCHPAD       ";BX$
2255 [152]4,[199](0)
2260 [152]4,"     LEN64 (null)EBIRTH (RIGHT$RIGHT$) ";BX$
2265 [152]4,[199](0)
2266 [152]4,"     (null)ESAR ON (null)RACK   ";BX$
2267 [152]4,[199](0)
2270 [152]4,"     (null)HE (null)IGHT (null)IDE   ";BX$
2272 [152]4,[199](0)
2273 [152]4,"     (null)OFTWARE (null)EVIEWS ";BX$
2275 [152]4,[199](0)
2276 [152]4,"     ATNNY OTHER COMMENTS OR OBSERVATIONS YOU'D CARE TO MAKE:"
2280 [152]4,[199](0)
2290 [129] X[178]1[164]4
2300 [152]4,"     ";L$;L$
2305 [152]4,[199](0)
2310 [130]
2315 [152]4,[199](0)
2320 [152]4,"     RIGHT$'D RATE THE ISSUE OVERALL  [   ]"
2330 [152]4,[199](12)
2490 [160]4: [142]
2995 :
2996 [143] ***********
2997 [143]  SCREEN #5
2998 [143] ***********
2999 :
3000 [141] 1400: [143] CLEAR TEXT AREA
3005 :
3010 [153][166]5)"(null)HANK-YOU FOR TAKING THE TIME"
3020 [153][166]8)"TO PRINT OUT THE SURVEY."
3030 [153][166]3)"(null)E'LL BE WAITING TO HEAR FROM YOU."
3040 [153][166]2)"(null)LEASE SEND THE COMPLETED SURVEY TO"
3050 [153][166]8)"(null)P(null)IME, THE STR$ISK (null)ONTHLYLIST"
3060 [153][166]8)"(null)(null) PEEKOX 299"
3070 [153][166]8)"(null)EWPORT, (null)RIGHT$ 02840"
3080 [142]
4995 :
4996 [143] ***********
4997 [143]  KBD INPUT
4998 [143] ***********
4999 :
5000 T$[178]"": CS$[178]"*CMD": CT[178]0
5010 [161] K$: [139] K$[178]"" [167] 5010
5020 K[178][198](K$)
5030 [139] K[178]13 [167] 5100
5040 [139] K[179][177]20 [167] 5070
5050 [139] CT[178]0 [167] 5010
5060 CT[178]CT[171]1: [153]" CMDCMD CMD";CS$;: T$[178][200](T$,CT): [137] 5010
5070 [139] CT[178]ML [167] 5010
5080 [139] (K[178]32) [176] (K[178]46) [167] 5085
5082 [139] (K$[177][178]"A") [175] (K$[179][178]"Z") [167] 5085
5084 [139] (K$[179]"ATN") [176] (K$[177]"(null)") [167] 5010
5085 T$[178]T$[170]K$: CT[178]CT[170]1: [153]K$;: [139] CT[179][177]24 [167] [153]CS$;
5090 [137] 5010
5100 [139] T$[178]"" [167] [153]"ATNNONYMOUS";
5110 [153]" ": [142]
5195 :
5196 [143] ****************************
5197 [143]  CK FOR DAISY WHEEL PRINTER
5198 [143] ****************************
5199 :
5200 [153][166]9)"LISTLENAN YOUR PRINTER PRINT"
5210 [153][166]5)"LENOMMODORE CHR$RAPHIC CHARACTERS?"
5220 [153][166]15)"SYS< (null) / (null) >LIST": [153]"ONONON";
5230 DW[178]0
5240 [161] K$: [139] K$ [178] "" [167] 5240
5250 [139] (K$[178]"Y") [176] (K$[178]"(null)") [167] 5280
5260 [139] (K$[179][177]"N") [175] (K$[179][177]"(null)") [167] 5240
5270 DW[178]1
5280 [129] X[178]1[164]3: [153]"                                   ": [130]
5285 [153]"ONONONON";
5290 [142]